Individual Project

# import magrittr for piping
library(magrittr)
library(readr)
library(dplyr)
library(plotly)
#read in data to analyze
atp_table <- read_csv("atp_tennis.csv")

Rows: 25362 Columns: 17── Column specification ─────────────────────────────────────────────────────────
Delimiter: ","
chr  (9): Tournament, Series, Court, Surface, Round, Player_1, Player_2, Winn...
dbl  (7): Best of, Rank_1, Rank_2, Pts_1, Pts_2, Odd_1, Odd_2
date (1): Date
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

head(atp_table)

NA

#plotly tests
atp_dated <- atp_table %>% filter(Date < "2013-01-01")
plot_ly(atp_dated, x = ~Rank_1, y = ~Rank_2, 
        text = ~Player_1, type = 'scatter', mode = 'markers',
        marker = list(size = ~Odd_2, opacity = 0.5))

player_name = "Djokovic N."
atp_table_swapped <- atp_table %>% rename(Player_1 = Player_2, Player_2 = Player_1)
atp_combined <- rbind(atp_table, atp_table_swapped)
atp_combined <- atp_combined[order(atp_combined$Date),]
opponents <- atp_combined %>%
  filter(Player_1 == player_name) %>%
  select(Player_2) %>%
  table(dnn = "name")
opponents %<>% as.data.frame()
opponents <- opponents[rev(order(opponents$Freq)),]
fig <- plot_ly(opponents, x = ~name, y = ~Freq, type = 'bar')
fig

player_results = list()
players = c("Djokovic N.", "Nadal R.")
for(player in players){
  # grab the relevant player ratings
  atp_player_result <- atp_combined %>%
    filter(Player_1 == player) %>%
    # grab names ranks and dates
    select(Rank_1 | Rank_2 | Date | Player_1 | Player_2)
  # add the player result to the list
  player_results[[length(player_results)+1]] = atp_player_result
}
ggplot(bind_rows(player_results, .id="data_frame"),
       aes(x=Date, y=Rank_1, group = Player_1)) +
  geom_line(aes(color = Player_1)) +
  scale_y_reverse() +
  labs(y = "Ranking", title = "Player Ranking over Time")

library(ggplot2)

ggplot(head(opponents,10), aes(x=name, y = Freq))

library(shiny)
player_selections <<- data.frame( player = 
                                    c(atp_table$Player_1, 
                                      atp_table$Player_2)) %>%
  # used https://www.rdocumentation.org/packages/base/versions/3.6.2/topics/table
  # need the column name to be the same every time
  table(dnn = list("name")) %>%
  as.data.frame(responseName = "freq")

# https://stackoverflow.com/questions/62716572/selectinput-category-selection
# Stéphane Laurent
# https://shiny.posit.co/r/reference/shiny/latest/updateselectinput
# for context (lets me know onInitialize is running as JavaScript)
onInitialize <- "
function(){
  var select = this.$input[0];
  this.$dropdown_content.on('mousedown', function(e){
    e.preventDefault(); 
    return false;
  }).on('click', '.optgroup-header', function(e){
    var options = $(this).parent().find('.option');
    var items = [];
    options.each(function(i, opt){items.push($(opt).data('value'));});
    var selections = select.selectize.items;
    select.selectize.setValue(items.concat(selections));
  });
}
"

shinyApp(
  ui = fluidPage(
    selectizeInput("state", "Choose a player:",
                   player_selections,
                   multiple = TRUE, 
                   options = list(
                     onInitialize = I(onInitialize)
                   )
    )
  ),
  server = function(input, output){}
)

Listening on http://127.0.0.1:5536

NA

library(GGally)
library(igraph)
player = "Djokovic N." 
    atp_player_result <- atp_combined %>%
      filter(Player_1 == player) %>%
      # grab names ranks and dates
      select(Player_2)
    #make a data frame with the frequency of occurrences
    network_table_df <- atp_player_result %>%
      table(dnn = list("name")) %>%
      as.data.frame(responseName = "freq")
    #order by frequency
    network_table_df <- network_table_df[order(network_table_df$freq, decreasing = TRUE),]
    simple_edge_df <- data.frame(
      from = rep(player,length(network_table_df$name)),
      to = network_table_df$name,
      weight = network_table_df$freq
    )
    
    net <- graph_from_data_frame(simple_edge_df)
    p <- ggnet2(simplify(net), size = simple_edge_df$weight, label = TRUE)

Error in set_node(node.size, "node.size") : incorrect node.size length

length(atp_player_result$Player_2)

[1] 632

nodes <- data.frame(id = unique(atp_combined$Player_1))
edges <- data.frame(from = atp_table$Player_1, to = atp_table$Player_2)
visNetwork(nodes, edges, width = "100%")